﻿Public Class Roles

    Private ID_Rol As Integer
    Private Descripcion As String

    Public Sub New()
    End Sub

    Public Sub New(ByVal id As Integer, ByVal desc As String)
        Me.ID_Rol = id
        Me.Descripcion = desc
    End Sub

    Public Property pIdRol As Integer
        Get
            Return Me.ID_Rol
        End Get
        Set(ByVal value As Integer)
            Me.ID_Rol = value
        End Set
    End Property
    Public Property pDescrip As String
        Get
            Return Me.Descripcion
        End Get
        Set(ByVal value As String)
            Me.Descripcion = value
        End Set
    End Property


End Class


